home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / util / misc / ftrans12.lha / Install-FTrans < prev    next >
Text File  |  1994-10-30  |  4KB  |  179 lines
  1. ;Installer Install-Script für FTrans
  2.  
  3. (set picked_user-level @user-level)
  4. (set @default-dest "")
  5. (set ftrans-default_dest "WORK:")
  6. (set ftrans "FTrans")
  7. (set ftrans_guide "FTrans.guide")
  8. (set ftrans_arexx "FTrans.rexx")
  9. (set ftced_script "FTCed.ced")
  10. (set rexx_dir "REXX:")
  11. (set libs_dir "LIBS:")
  12. (set rexxcedlib212 "CEDSupportLibs/ced212/rexxcedsupport.library")
  13. (set rexxcedlib35  "CEDSupportLibs/ced35/rexxcedsupport.library")
  14.  
  15. ;=============================================================================
  16. ; German strings
  17.  
  18. (set #bad-kick
  19.  (cat "Sie müssen Kickstart 2.04 auf Ihrem Rechner installiert haben\num dieses Script zu verwenden.\nFTrans ist erst ab dieser Kickstart funktionsfähig!")
  20. )
  21.  
  22. (set #where-ftrans "In welchem Verzeichnis soll FTrans installiert werden?\nAchtung, eine Schublade im angegebenen Verzeichnisspfad mit Namen FTrans wir noch automatisch angelegt.")
  23. (set #demo_arexx   "\nSoll das Demo-Arexx-Script nach REXX: installiert werden?")
  24.  
  25. (set #help_demo_arexx_script "Ja   - installiert das ARexx-Script nach REXX:\nNein - überspringt diesen Teil, das ARexx-Script\n       wird nicht installiert.")
  26.  
  27. (set #copying-ftrans     "Kopiere FTrans...")
  28. (set #copying-dicts      "Kopiere Wörterbuch/Wörterbücher...")
  29.  
  30. (set #copying-ced212lib  "\nKopiere rexxcedsupport.library für CED 2.12 nach Libs:...")
  31. (set #copying-ced35lib   "\nKopiere rexxcedsupport.library für CED 3.5 nach Libs:...")
  32.  
  33. (set #copying-ftrans_guide "\nKopiere FTrans.guide...")
  34.  
  35. (set #copying-ced_arexx-script  "\nKopiere ARexx-Script FTCed.ced nach REXX:...")
  36. (set #copying-ftrans_arexx-script  "\nKopiere ARexx-Script FTrans.rexx nach REXX:...")
  37.  
  38. (set #install-msg
  39. (cat "\n\nFTrans Installations-Script.\n"
  40.      "Dieses Script installiert FTrans auf Ihrem Amiga.\n\n"
  41.      "Lesen Sie die Dokumentation zur genaueren Information.\n\n"
  42.      "FTrans © 1992-1994 Rainer Hess\n"
  43.      "Alle Rechte vorbehalten."
  44. ))
  45.  
  46. ;=============================================================================
  47. ; make sure we are running under a 2.04 ROM
  48.  
  49. (if (< (/ (getversion) 65536) 37)
  50. (
  51.     (abort #bad-kick)
  52. ))
  53.  
  54. ;=============================================================================
  55.  
  56. (complete 0)
  57.  
  58. (message #install-msg)
  59.  
  60. (complete 1)
  61.  
  62. (set ftransdir
  63.     (tackon
  64.         (askdir
  65.             (prompt #where-ftrans)
  66.             (help @askdir-help)
  67.             (default ftrans-default_dest)
  68.         )
  69.     "FTrans"
  70.     )
  71. )
  72.  
  73. (complete 10)
  74.  
  75. ; Schublade anlegen
  76. (makedir ftransdir (infos))
  77.  
  78. (copyfiles
  79.     (prompt #copying-ftrans)
  80.     (source ftrans)
  81.     (dest ftransdir)
  82.     (infos)
  83.     (noposition)
  84. )
  85.  
  86. (complete 25)
  87.  
  88. (copyfiles
  89.     (prompt #copying-ftrans_guide)
  90.     (source ftrans_guide)
  91.     (dest ftransdir)
  92.     (infos)
  93.     (noposition)
  94. )
  95.  
  96. (complete 35)
  97.  
  98. (copyfiles
  99.     (prompt #copying-dicts)
  100.     (help @copyfiles-help)
  101.     (source "")
  102.     (dest ftransdir)
  103.     (pattern "#?.dic")
  104.     (files)
  105.     (confirm)
  106. )
  107.  
  108. (complete 50)
  109.  
  110. (set which_ced
  111.     (askchoice
  112.         (prompt "Soll die rexxcedsupport.library und das ARexx-Script für CygnusEd installiert werden?\n\nWelche CygnusEd-Version verwenden Sie?")
  113.         (help @askchoice-help)
  114.         (choices "Keinen" "CED 2.12" "CED 3.5")
  115.         (default 0)
  116.     )
  117. )
  118.  
  119. (complete 75)
  120.  
  121. (debug "Choice was " which_ced)
  122.  
  123. ( if (> which_ced 0)
  124.     (copyfiles
  125.         (prompt #copying-ced_arexx-script)
  126.         (source ftced_script)
  127.         (dest rexx_dir)
  128.         (infos)
  129.         (noposition)
  130.     )
  131. )
  132.  
  133. (complete 80)
  134.  
  135. ( if (= which_ced 1)
  136.     (copyfiles
  137.         (prompt #copying-ced212lib)
  138.         (source rexxcedlib212)
  139.         (dest libs_dir)
  140.         (infos)
  141.         (noposition)
  142.     )
  143. )
  144.  
  145. ( if (= which_ced 2)
  146.     (copyfiles
  147.         (prompt #copying-ced35lib)
  148.         (source rexxcedlib35)
  149.         (dest libs_dir)
  150.         (infos)
  151.         (noposition)
  152.     )
  153. )
  154.  
  155. (complete 95)
  156.  
  157. (set demo_arexx-script
  158.     (askbool
  159.         (prompt #demo_arexx)
  160.         (help #help_demo_arexx_script)
  161.         ;(choices "Yes" "No" )
  162.         (default 0)
  163.     )
  164. )
  165.  
  166. ( if (= demo_arexx-script 1)
  167.     (copyfiles
  168.         (prompt #copying-ftrans_arexx-script)
  169.         (source ftrans_arexx)
  170.         (dest rexx_dir)
  171.         (infos)
  172.         (noposition)
  173.     )
  174. )
  175.  
  176. (complete 100)
  177.  
  178. (exit)
  179.